home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / CHTOUPPE.INC < prev    next >
Text File  |  1989-12-14  |  835b  |  25 lines
  1. {$F+} procedure choupper(len: integer; var st); {$F-}
  2. begin
  3.  
  4.    Inline(
  5.      $8B/$4E/<len/          {   mov cx,[bp+<len]}
  6.      $C4/$7E/<st/           {   les di,[bp+<st]     ;es:di -> st[0]}
  7.                             {next:}
  8.      $47/                   {   inc di}
  9.      $FE/$C9/               {   dec cl}
  10.      $74/$12/               {   jz ends}
  11.      $26/                   {   es:}
  12.      $8A/$05/               {   mov al,[di]}
  13.      $3C/$61/               {   cmp al,'a'}
  14.      $72/$F4/               {   jb next}
  15.      $3C/$7A/               {   cmp al,'z'}
  16.      $77/$F0/               {   ja next}
  17.      $2C/$20/               {   sub al,' '}
  18.      $26/                   {   es:}
  19.      $88/$05/               {   mov [di],al}
  20.      $EB/$E9);              {   jmp next}
  21.                             {ends:}
  22. end;
  23.  
  24.  
  25.